From 78e3ef3ce66a4f6f5b53fdc920370915bd07b08f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Mar 1993 17:48:56 +0000 Subject: [PATCH] (command-apropos): Print echo area message iff found symbols. --- lisp/help.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 95d08297361..3be32b6ce57 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -381,8 +381,8 @@ documentation found." (let ((message (let ((standard-output (get-buffer-create "*Help*"))) (print-help-return-message 'identity)))) - (apropos string t 'commandp) - (and message (message message)))) + (if (apropos string t 'commandp) + (and message (message message))))) (defun locate-library (library &optional nosuffix) "Show the full path name of Emacs library LIBRARY. -- 2.30.2